OPLObjectFile**
LOC::M:\OPL\CODAT.OPL
Codat.DBE
\DAT\
PRIOR
CHKPWD%
OPENSTRT
DECRYPT
CLOSE
RUNDATA
NEWFILE
OPENFILE
ENCRYPT
SAVEPWD
NO CACHE
PRIOR
DATA$
.DBFK+
rom::data.appO
GETPWD$
RUNDATA
PASS$
O(hD[
MitC[
+	Codewort:
+	Password:
MitC[
Daten
GETKEY%
LENC$
GETKEY%
LDEC$
GETPWD$
RUNDATA
NEWFILE
GETPWD$
OPENFILE
OPENSTRT
CLOSE
PASS$
DATA$
ENCRYPTG
LENC$i
GETKEY%
SAVEPWD-
DECRYPT
LDEC$
CHKPWD%
PRIOR